home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 April: Mac OS SDK / Dev.CD Apr 96 SDK / Dev.CD Apr 96 SDK1.toast / Development Kits (Disc 1) / OpenDoc / Sample Code / PartMaker 4.4 / PartMaker Documents / Script Runner• / Script Runner•.rsrc / dFRK_5058 < prev    next >
Encoding:
Text File  |  1995-12-12  |  16.4 KB  |  577 lines
  1.  
  2. /*
  3.  * This file was generated by the SOM Compiler.
  4.  * FileName: Orbit:SampleCode:ScriptRunner:Source:ScriptRunner.xh.
  5.  * Generated using:
  6.  *     SOM Precompiler somipc: 2.18
  7.  *     SOM Emitter emitxh.dll: 2.33
  8.  */
  9.  
  10. #ifndef SOM_Module_SampleCode_defined
  11. #define SOM_Module_SampleCode_defined 1
  12. #include <som.xh>
  13.  
  14. /*
  15.  * Start of user-defined types:
  16.  */
  17. class SOMClass;
  18. class SOMObject;
  19. class ODFrame;
  20. class ODFacet;
  21. class ODObject;
  22. class ODExtension;
  23. class ODRefCntObject;
  24. class ODPersistentObject;
  25. class ODStorageUnit;
  26. class ODPart;
  27. class ODCanvas;
  28. class ODDragItemIterator;
  29. class ODEmbeddedFramesIterator;
  30. class ODLink;
  31. class ODLinkSource;
  32. class ODObjectSpec;
  33. class ODShape;
  34. class ODStorageUnitView;
  35. class ODTypeList;
  36. class ODSession;
  37. class ODWindow;
  38. #define kScriptRunner "+//ISO 9070/ANSI::113722::US::CI LABS::Apple:Kind:ScriptRunner"
  39.  
  40. /*
  41.  * End of user-defined types.
  42.  */
  43. #endif /* SOM_Module_SampleCode_defined */
  44.  
  45. #ifndef SOM_SampleCode_ScriptRunner_xh
  46. #define SOM_SampleCode_ScriptRunner_xh
  47.  
  48. class SampleCode_ScriptRunner;
  49.  
  50. #define SampleCode_ScriptRunner_MajorVersion 1
  51. #define SampleCode_ScriptRunner_MinorVersion 0
  52.  
  53. /* C++ SOM defs */
  54. #include <somcls.xh>
  55. #include <somcm.xh>
  56.  
  57. /* C++ parent defs */
  58. #ifndef SOM_ODPart_xh
  59. #include <Part.xh>
  60. #endif
  61.  
  62. #ifndef SampleCode_ScriptRunner_API
  63. #define SampleCode_ScriptRunner_API
  64. /*
  65.  * -- The Class API
  66.  */
  67.  
  68. /*
  69.  * Start of user-defined types:
  70.  */
  71.  
  72. /*
  73.  * End of user-defined types.
  74.  */
  75.  
  76. #ifdef OLDIBMSOMAPISUPPORT
  77. #define SampleCode_ScriptRunnerCClassData SampleCode_ScriptRunnerClassData
  78. #define SampleCode_ScriptRunnerNewClass(major,minor) somNewVersionedClassReference(SampleCode_ScriptRunner,major,minor)
  79. #endif
  80.  
  81. /* define xxxMetaClass macro to facilitate (cls ## MetaClass) */
  82. #define SampleCode_ScriptRunnerMetaClass SOMClass
  83.  
  84.  
  85. /* The API to the SampleCode_ScriptRunner class object, and the methods it introduces. */
  86. SOMEXTERN struct SampleCode_ScriptRunnerClassDataStructure {
  87. #ifdef OLDIBMSOMAPISUPPORT
  88.     SOMClass            *classObject;    /* always zero, use somNewClassReference instead */
  89. #else
  90.     long zero;
  91. #endif
  92.     somStaticClassInfo *sci;
  93.     somDToken        instanceDataToken;
  94.     long reserved [3];
  95.     somMToken CreatePalette;
  96.     somMToken ShowPalette;
  97.     somMToken HidePalette;
  98.     somMToken IsPaletteVisible;
  99.     somMToken MovePalette;
  100.     somMToken GetPaletteLocation;
  101.     somMToken SetClient;
  102.     somMToken Initialize;
  103.     somMToken CheckAndAddProperties;
  104.     somMToken CreateWindow;
  105.     somMToken CreateResultWindow;
  106.     somMToken IsResultWindowVisible;
  107.     somMToken ShowResultWindow;
  108.     somMToken HideResultWindow;
  109.     somMToken DisplayResult;
  110.     somMToken AcquireWindowByID;
  111.     somMToken HandleWindowEvent;
  112.     somMToken HandleMouseEvent;
  113.     somMToken HandleMouseUp;
  114.     somMToken HandleMouseDown;
  115.     somMToken HandleOSAEvent;
  116.     somMToken LoadPalette;
  117.     somMToken SetClientTextData;
  118.     somMToken DoErrorDialog;
  119.     somMToken InitiateDrag;
  120.     somMToken CreateDragRegion;
  121. } SOMDLINK SampleCode_ScriptRunnerClassData;
  122.  
  123. #if !defined(SampleCode_ScriptRunner_Class_Source) && !defined(SOM_Module_scriptrunner_Source)
  124. #if PRAGMA_IMPORT_SUPPORTED
  125. #pragma import list SampleCode_ScriptRunnerClassData
  126. #endif
  127. #endif
  128.  
  129.  
  130. /*
  131.  * -- Typedefs and inline method declarations for left path inherited methods
  132.  * -- are omitted because this compilation had -museinheritedmethods in effect
  133.  */
  134.  
  135.  
  136. /*
  137.  * -- Typedefs for SampleCode_ScriptRunner Method Procedures
  138.  */
  139. SOMEXTERN {
  140. typedef void   (* SOMLINK somTD_SampleCode_ScriptRunner_ShowPalette)(SampleCode_ScriptRunner *somSelf, Environment *ev);
  141. typedef void   (* SOMLINK somTD_SampleCode_ScriptRunner_HidePalette)(SampleCode_ScriptRunner *somSelf, Environment *ev);
  142. typedef ODBoolean   (* SOMLINK somTD_SampleCode_ScriptRunner_IsPaletteVisible)(SampleCode_ScriptRunner *somSelf, Environment *ev);
  143. typedef ODBoolean   (* SOMLINK somTD_SampleCode_ScriptRunner_MovePalette)(SampleCode_ScriptRunner *somSelf, Environment *ev,
  144.         ODPoint* point);
  145. typedef ODPoint*   (* SOMLINK somTD_SampleCode_ScriptRunner_GetPaletteLocation)(SampleCode_ScriptRunner *somSelf, Environment *ev);
  146. typedef void   (* SOMLINK somTD_SampleCode_ScriptRunner_SetClient)(SampleCode_ScriptRunner *somSelf, Environment *ev,
  147.         ODPart* client);
  148. typedef void   (* SOMLINK somTD_SampleCode_ScriptRunner_Initialize)(SampleCode_ScriptRunner *somSelf, Environment *ev,
  149.         ODStorageUnit* storageUnit);
  150. typedef void   (* SOMLINK somTD_SampleCode_ScriptRunner_CheckAndAddProperties)(SampleCode_ScriptRunner *somSelf, Environment *ev,
  151.         ODStorageUnit* storageUnit);
  152. typedef ODWindow*   (* SOMLINK somTD_SampleCode_ScriptRunner_CreateWindow)(SampleCode_ScriptRunner *somSelf, Environment *ev,
  153.         ODTypeToken presentation,
  154.         ODSShort procID,
  155.         Str63 windowTitle,
  156.         Rect* windowBounds);
  157. typedef ODWindow*   (* SOMLINK somTD_SampleCode_ScriptRunner_CreateResultWindow)(SampleCode_ScriptRunner *somSelf, Environment *ev);
  158. typedef ODBoolean   (* SOMLINK somTD_SampleCode_ScriptRunner_IsResultWindowVisible)(SampleCode_ScriptRunner *somSelf, Environment *ev);
  159. typedef ODWindow*   (* SOMLINK somTD_SampleCode_ScriptRunner_ShowResultWindow)(SampleCode_ScriptRunner *somSelf, Environment *ev);
  160. typedef void   (* SOMLINK somTD_SampleCode_ScriptRunner_HideResultWindow)(SampleCode_ScriptRunner *somSelf, Environment *ev);
  161. typedef void   (* SOMLINK somTD_SampleCode_ScriptRunner_DisplayResult)(SampleCode_ScriptRunner *somSelf, Environment *ev);
  162. typedef ODWindow*   (* SOMLINK somTD_SampleCode_ScriptRunner_AcquireWindowByID)(SampleCode_ScriptRunner *somSelf, Environment *ev,
  163.         ODID windowID);
  164. typedef ODBoolean   (* SOMLINK somTD_SampleCode_ScriptRunner_HandleWindowEvent)(SampleCode_ScriptRunner *somSelf, Environment *ev,
  165.         ODEventData* event,
  166.         ODFrame* frame);
  167. typedef ODBoolean   (* SOMLINK somTD_SampleCode_ScriptRunner_HandleMouseEvent)(SampleCode_ScriptRunner *somSelf, Environment *ev,
  168.         ODEventData* event,
  169.         ODEventInfo* eventInfo,
  170.         ODFrame* frame,
  171.         ODFacet* facet);
  172. typedef void   (* SOMLINK somTD_SampleCode_ScriptRunner_HandleMouseUp)(SampleCode_ScriptRunner *somSelf, Environment *ev,
  173.         ODEventInfo* eventInfo,
  174.         ODFrame* frame);
  175. typedef void   (* SOMLINK somTD_SampleCode_ScriptRunner_HandleMouseDown)(SampleCode_ScriptRunner *somSelf, Environment *ev,
  176.         ODEventInfo* eventInfo,
  177.         ODFacet* facet);
  178. typedef void   (* SOMLINK somTD_SampleCode_ScriptRunner_HandleOSAEvent)(SampleCode_ScriptRunner *somSelf, Environment *ev,
  179.         ODFrame* frame,
  180.         ODCommandID comand);
  181. typedef void   (* SOMLINK somTD_SampleCode_ScriptRunner_LoadPalette)(SampleCode_ScriptRunner *somSelf, Environment *ev);
  182. typedef void   (* SOMLINK somTD_SampleCode_ScriptRunner_SetClientTextData)(SampleCode_ScriptRunner *somSelf, Environment *ev);
  183. typedef void   (* SOMLINK somTD_SampleCode_ScriptRunner_DoErrorDialog)(SampleCode_ScriptRunner *somSelf, Environment *ev,
  184.         ODFrame* frame);
  185. typedef ODDropResult   (* SOMLINK somTD_SampleCode_ScriptRunner_InitiateDrag)(SampleCode_ScriptRunner *somSelf, Environment *ev,
  186.         ODEventData* event,
  187.         ODFacet* facet,
  188.         ODPoint* where);
  189. typedef ODRgnHandle   (* SOMLINK somTD_SampleCode_ScriptRunner_CreateDragRegion)(SampleCode_ScriptRunner *somSelf, Environment *ev,
  190.         ODFacet* facet);
  191. }
  192.  
  193. #endif /* SampleCode_ScriptRunner_API */
  194.  
  195.  
  196. /*
  197.  * -- This emitter treats Method Tokens as Thunks by default.
  198.  * -- Use the sc modifier "nothunks" to change this default
  199.  */
  200. #undef somresolve_
  201. #define somresolve_(obj,mToken) ((somMethodProc*)((void)obj, mToken))
  202.  
  203. /*
  204.  * -- The C++ Wrapper Class for SampleCode_ScriptRunner
  205.  */
  206. class SampleCode_ScriptRunner : public ODPart
  207. {
  208. public:
  209.  
  210. // SampleCode_ScriptRunner::new registers use of the class object, and then uses somNew
  211. // to allocate memory and load the object method table pointer. 
  212. void *operator new(size_t size)
  213. {
  214.     SOM_IgnoreWarning(size);
  215.     // Allocate memory using the default allocator for SampleCode_ScriptRunner, and
  216.     // clear mem & set method table pointer, call basic initialization
  217. #ifdef SOMCHKNULL
  218.     void * __somResult = (void *)
  219.       somNewObject(SampleCode_ScriptRunner);
  220.     SOMCHKNULL(__somResult);
  221.     return __somResult;
  222. #else
  223.     return (void*) somNewObject(SampleCode_ScriptRunner);
  224. #endif
  225. }
  226.  
  227. // SampleCode_ScriptRunner::delete uses the default deallocator for the object's class.
  228. void operator delete(void * obj)
  229. {
  230.     if (obj) {
  231.         SOM_Resolve(obj,SOMObject,somFree)
  232.            ( (SOMObject*) obj );
  233.     }
  234. }
  235.  
  236. /* method: ShowPalette */
  237. void   ShowPalette(Environment *ev)
  238. {
  239.    SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,ShowPalette)
  240.     (this,ev);
  241. #ifdef SOMCHKEXCEPT
  242.       SOMCHKEXCEPT;
  243. #endif
  244. }
  245.  
  246. /* method: HidePalette */
  247. void   HidePalette(Environment *ev)
  248. {
  249.    SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,HidePalette)
  250.     (this,ev);
  251. #ifdef SOMCHKEXCEPT
  252.       SOMCHKEXCEPT;
  253. #endif
  254. }
  255.  
  256. /* method: IsPaletteVisible */
  257. ODBoolean   IsPaletteVisible(Environment *ev)
  258. {
  259.    #ifdef SOMCHKEXCEPT
  260.    ODBoolean __somResult = 
  261.       SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,IsPaletteVisible)
  262.     (this,ev);
  263.       SOMCHKEXCEPT;
  264.    return __somResult;
  265. #else
  266.    return SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,IsPaletteVisible)
  267.     (this,ev);
  268. #endif
  269. }
  270.  
  271. /* method: MovePalette */
  272. ODBoolean   MovePalette(Environment *ev,
  273.         ODPoint* point)
  274. {
  275.    #ifdef SOMCHKEXCEPT
  276.    ODBoolean __somResult = 
  277.       SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,MovePalette)
  278.     (this,ev,point);
  279.       SOMCHKEXCEPT;
  280.    return __somResult;
  281. #else
  282.    return SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,MovePalette)
  283.     (this,ev,point);
  284. #endif
  285. }
  286.  
  287. /* method: GetPaletteLocation */
  288. ODPoint*   GetPaletteLocation(Environment *ev)
  289. {
  290.    #ifdef SOMCHKEXCEPT
  291.    ODPoint* __somResult = 
  292.       SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,GetPaletteLocation)
  293.     (this,ev);
  294.       SOMCHKEXCEPT;
  295.    return __somResult;
  296. #else
  297.    return SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,GetPaletteLocation)
  298.     (this,ev);
  299. #endif
  300. }
  301.  
  302. /* method: SetClient */
  303. void   SetClient(Environment *ev,
  304.         ODPart* client)
  305. {
  306.    SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,SetClient)
  307.     (this,ev,client);
  308. #ifdef SOMCHKEXCEPT
  309.       SOMCHKEXCEPT;
  310. #endif
  311. }
  312.  
  313. /* method: Initialize */
  314. void   Initialize(Environment *ev,
  315.         ODStorageUnit* storageUnit)
  316. {
  317.    SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,Initialize)
  318.     (this,ev,storageUnit);
  319. #ifdef SOMCHKEXCEPT
  320.       SOMCHKEXCEPT;
  321. #endif
  322. }
  323.  
  324. /* method: CheckAndAddProperties */
  325. void   CheckAndAddProperties(Environment *ev,
  326.         ODStorageUnit* storageUnit)
  327. {
  328.    SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,CheckAndAddProperties)
  329.     (this,ev,storageUnit);
  330. #ifdef SOMCHKEXCEPT
  331.       SOMCHKEXCEPT;
  332. #endif
  333. }
  334.  
  335. /* method: CreateWindow */
  336. ODWindow*   CreateWindow(Environment *ev,
  337.         ODTypeToken presentation,
  338.         ODSShort procID,
  339.         Str63 windowTitle,
  340.         Rect* windowBounds)
  341. {
  342.    #ifdef SOMCHKEXCEPT
  343.    ODWindow* __somResult = 
  344.       SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,CreateWindow)
  345.     (this,ev,presentation,procID,windowTitle,windowBounds);
  346.       SOMCHKEXCEPT;
  347.    return __somResult;
  348. #else
  349.    return SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,CreateWindow)
  350.     (this,ev,presentation,procID,windowTitle,windowBounds);
  351. #endif
  352. }
  353.  
  354. /* method: CreateResultWindow */
  355. ODWindow*   CreateResultWindow(Environment *ev)
  356. {
  357.    #ifdef SOMCHKEXCEPT
  358.    ODWindow* __somResult = 
  359.       SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,CreateResultWindow)
  360.     (this,ev);
  361.       SOMCHKEXCEPT;
  362.    return __somResult;
  363. #else
  364.    return SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,CreateResultWindow)
  365.     (this,ev);
  366. #endif
  367. }
  368.  
  369. /* method: IsResultWindowVisible */
  370. ODBoolean   IsResultWindowVisible(Environment *ev)
  371. {
  372.    #ifdef SOMCHKEXCEPT
  373.    ODBoolean __somResult = 
  374.       SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,IsResultWindowVisible)
  375.     (this,ev);
  376.       SOMCHKEXCEPT;
  377.    return __somResult;
  378. #else
  379.    return SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,IsResultWindowVisible)
  380.     (this,ev);
  381. #endif
  382. }
  383.  
  384. /* method: ShowResultWindow */
  385. ODWindow*   ShowResultWindow(Environment *ev)
  386. {
  387.    #ifdef SOMCHKEXCEPT
  388.    ODWindow* __somResult = 
  389.       SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,ShowResultWindow)
  390.     (this,ev);
  391.       SOMCHKEXCEPT;
  392.    return __somResult;
  393. #else
  394.    return SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,ShowResultWindow)
  395.     (this,ev);
  396. #endif
  397. }
  398.  
  399. /* method: HideResultWindow */
  400. void   HideResultWindow(Environment *ev)
  401. {
  402.    SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,HideResultWindow)
  403.     (this,ev);
  404. #ifdef SOMCHKEXCEPT
  405.       SOMCHKEXCEPT;
  406. #endif
  407. }
  408.  
  409. /* method: DisplayResult */
  410. void   DisplayResult(Environment *ev)
  411. {
  412.    SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,DisplayResult)
  413.     (this,ev);
  414. #ifdef SOMCHKEXCEPT
  415.       SOMCHKEXCEPT;
  416. #endif
  417. }
  418.  
  419. /* method: AcquireWindowByID */
  420. ODWindow*   AcquireWindowByID(Environment *ev,
  421.         ODID windowID)
  422. {
  423.    #ifdef SOMCHKEXCEPT
  424.    ODWindow* __somResult = 
  425.       SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,AcquireWindowByID)
  426.     (this,ev,windowID);
  427.       SOMCHKEXCEPT;
  428.    return __somResult;
  429. #else
  430.    return SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,AcquireWindowByID)
  431.     (this,ev,windowID);
  432. #endif
  433. }
  434.  
  435. /* method: HandleWindowEvent */
  436. ODBoolean   HandleWindowEvent(Environment *ev,
  437.         ODEventData* event,
  438.         ODFrame* frame)
  439. {
  440.    #ifdef SOMCHKEXCEPT
  441.    ODBoolean __somResult = 
  442.       SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,HandleWindowEvent)
  443.     (this,ev,event,frame);
  444.       SOMCHKEXCEPT;
  445.    return __somResult;
  446. #else
  447.    return SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,HandleWindowEvent)
  448.     (this,ev,event,frame);
  449. #endif
  450. }
  451.  
  452. /* method: HandleMouseEvent */
  453. ODBoolean   HandleMouseEvent(Environment *ev,
  454.         ODEventData* event,
  455.         ODEventInfo* eventInfo,
  456.         ODFrame* frame,
  457.         ODFacet* facet)
  458. {
  459.    #ifdef SOMCHKEXCEPT
  460.    ODBoolean __somResult = 
  461.       SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,HandleMouseEvent)
  462.     (this,ev,event,eventInfo,frame,facet);
  463.       SOMCHKEXCEPT;
  464.    return __somResult;
  465. #else
  466.    return SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,HandleMouseEvent)
  467.     (this,ev,event,eventInfo,frame,facet);
  468. #endif
  469. }
  470.  
  471. /* method: HandleMouseUp */
  472. void   HandleMouseUp(Environment *ev,
  473.         ODEventInfo* eventInfo,
  474.         ODFrame* frame)
  475. {
  476.    SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,HandleMouseUp)
  477.     (this,ev,eventInfo,frame);
  478. #ifdef SOMCHKEXCEPT
  479.       SOMCHKEXCEPT;
  480. #endif
  481. }
  482.  
  483. /* method: HandleMouseDown */
  484. void   HandleMouseDown(Environment *ev,
  485.         ODEventInfo* eventInfo,
  486.         ODFacet* facet)
  487. {
  488.    SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,HandleMouseDown)
  489.     (this,ev,eventInfo,facet);
  490. #ifdef SOMCHKEXCEPT
  491.       SOMCHKEXCEPT;
  492. #endif
  493. }
  494.  
  495. /* method: HandleOSAEvent */
  496. void   HandleOSAEvent(Environment *ev,
  497.         ODFrame* frame,
  498.         ODCommandID comand)
  499. {
  500.    SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,HandleOSAEvent)
  501.     (this,ev,frame,comand);
  502. #ifdef SOMCHKEXCEPT
  503.       SOMCHKEXCEPT;
  504. #endif
  505. }
  506.  
  507. /* method: LoadPalette */
  508. void   LoadPalette(Environment *ev)
  509. {
  510.    SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,LoadPalette)
  511.     (this,ev);
  512. #ifdef SOMCHKEXCEPT
  513.       SOMCHKEXCEPT;
  514. #endif
  515. }
  516.  
  517. /* method: SetClientTextData */
  518. void   SetClientTextData(Environment *ev)
  519. {
  520.    SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,SetClientTextData)
  521.     (this,ev);
  522. #ifdef SOMCHKEXCEPT
  523.       SOMCHKEXCEPT;
  524. #endif
  525. }
  526.  
  527. /* method: DoErrorDialog */
  528. void   DoErrorDialog(Environment *ev,
  529.         ODFrame* frame)
  530. {
  531.    SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,DoErrorDialog)
  532.     (this,ev,frame);
  533. #ifdef SOMCHKEXCEPT
  534.       SOMCHKEXCEPT;
  535. #endif
  536. }
  537.  
  538. /* method: InitiateDrag */
  539. ODDropResult   InitiateDrag(Environment *ev,
  540.         ODEventData* event,
  541.         ODFacet* facet,
  542.         ODPoint* where)
  543. {
  544.    #ifdef SOMCHKEXCEPT
  545.    ODDropResult __somResult = 
  546.       SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,InitiateDrag)
  547.     (this,ev,event,facet,where);
  548.       SOMCHKEXCEPT;
  549.    return __somResult;
  550. #else
  551.    return SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,InitiateDrag)
  552.     (this,ev,event,facet,where);
  553. #endif
  554. }
  555.  
  556. /* method: CreateDragRegion */
  557. ODRgnHandle   CreateDragRegion(Environment *ev,
  558.         ODFacet* facet)
  559. {
  560.    #ifdef SOMCHKEXCEPT
  561.    ODRgnHandle __somResult = 
  562.       SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,CreateDragRegion)
  563.     (this,ev,facet);
  564.       SOMCHKEXCEPT;
  565.    return __somResult;
  566. #else
  567.    return SOM_ResolveD(this,SampleCode_ScriptRunner,SampleCode_ScriptRunner,CreateDragRegion)
  568.     (this,ev,facet);
  569. #endif
  570. }
  571.  
  572. };   /* SampleCode_ScriptRunner */
  573.  
  574.  
  575.  
  576. #endif       /* SOM_SampleCode_ScriptRunner_xh */
  577.